home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / window1a / y2kcode.bas next >
Encoding:
BASIC Source File  |  1999-09-05  |  1.0 KB  |  27 lines
  1. Attribute VB_Name = "mainMod"
  2. Option Explicit
  3.  
  4. Private Const LOCALE_SSHORTDATE = &H1F
  5. Private Const WM_SETTINGCHANGE = &H1A
  6. Private Const HWND_BROADCAST = &HFFFF&
  7.  
  8. Private Declare Function SetLocaleInfo Lib "kernel32" Alias _
  9.     "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As _
  10.     Long, ByVal lpLCData As String) As Boolean
  11. Private Declare Function PostMessage Lib "user32" Alias _
  12.     "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
  13.     ByVal wParam As Long, ByVal lParam As Long) As Long
  14. Private Declare Function GetSystemDefaultLCID Lib "kernel32" _
  15.     () As Long
  16.  
  17. Sub main()
  18.     Dim dwLCID As Long
  19.     dwLCID = GetSystemDefaultLCID()
  20.     If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "MM/dd/yyyy") = False Then
  21.        MsgBox "Failed"
  22.        Exit Sub
  23.     End If
  24.     PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
  25.     MsgBox "The Windows Date Format is now Y2K Compliant :)" & vbNewLine & "But that does not mean the rest of the computer (BIOS, or other software), is compliant :(", vbInformation, "Y2K Compliant"
  26. End Sub
  27.